home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C128 / Monthly Disks / (y)aac.d64 / basic cross ref (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  86 lines
  1. 0 VS$="970118.A":REM BASIC CROSS REF
  2. 100 DIMA$(20),B$(3),X$(2500),C(255)
  3. 110 Q$=CHR$(34):S$="     ":B$(1)=Q$:B$(3)=CHR$(58)
  4. 120 PRINT"[147]BASIC CROSS REFERENCE  "VS$
  5. 130 PRINT"THIS PROGRAM WILL PRODUCE A CROSS"
  6. 140 PRINT"REFERENCE OF YOUR 'BASIC' PROGRAM."
  7. 150 PRINT"IT WILL LIST ALL VARIABLES AND WHERE"
  8. 160 PRINT"THEY ARE USED, THEN ALL LINE NUMBERS"
  9. 170 PRINT"THAT ARE 'CALLED' (I.E., GOTO 50)"
  10. 180 PRINT"AND WHAT LINES 'CALL' THEM."
  11. 185 PRINT"THE SCREEN WILL DISPLAY THE LINES"
  12. 187 PRINT"BEING READ AND WILL SCROLL UP."
  13. 190 PRINT"WHEN THE CROSS REFENENCE IS READY"
  14. 200 PRINT"IT WILL BE OUTPUT TO THE PRINTER."
  15. 210 PRINT"INSERT DISK WITH PROGRAM YOU"
  16. 220 PRINT"WANT A CROSS REFERENCE OF IN"
  17. 225 PRINT"UNIT ADDRESS 8, DRIVE 0."
  18. 230 PRINT"THIS PROGRAM TAKES SEVERAL"
  19. 240 PRINT"MINUTES TO RUN.
  20. 245 [153]"  - PLEASE BE PATIENT - "
  21. 250 [153]"PRESS 'SPACE' TO CONTINUE"
  22. 260 [161]A$:[139] A$[179][177]" "[167]260
  23. 270 [133]"PROGRAM NAME";P$
  24. 280 [139]E[178]0[167]Z$[178]"V":C2[178]5:[139][198](Z$)[178]76[167]C2[178]6
  25. 290 [139]E[178]1[167]Z$[178]"L":C2[178]5:[139][198](Z$)[178]76[167]C2[178]6
  26. 300 [129]J[178]1[164]255:C(J)[178]4:[130]J:[129]J[178]48[164]57:C(J)[178]6:[130]J
  27. 310 [139]C2[178]5[167][129]J[178]65[164]90:C(J)[178]5:[130]J:[129]J[178]36[164]38:C(J)[178]7:[130]J:C(40)[178]8
  28. 320 C(34)[178]1:C(143)[178]2:C(131)[178]3
  29. 330 [159]1,8,3,"0:"[170]P$[170]",P,R"
  30. 340 [161]#1,A$,B$,C$:[139][198](B$)[179][177]8[167][160]1:[153]"ERROR"
  31. 350 [153][198](A$[170][199](0));" ";[198](B$);[198](C$)
  32. 360 [139]B[178]0[137]420
  33. 370 [153]L$;:K[178]X:[129]J[178]B[164]1[169][171]1:[153]" ";A$(J);:X$[178]A$(J)
  34. 380 X$[178]X$[170]L$
  35. 390 [139]X$(K)[177][178]X$[167]X$(K[170]J)[178]X$(K):K[178]K[171]1:[137]390
  36. 400 X$(K[170]J)[178]X$:[130]J:X[178]X[170]B:[153]:B[178]0
  37. 410 [143] GET NEXT LINE, TEST END
  38. 420 [161]#1,A$,B$:[139][195](A$)[170][195](B$)[178]0[137]720
  39. 430 [143] GET LINE NUMBER
  40. 440 [161]#1,A$:L[178][195](A$):[139]L[178]1[167]L[178][198](A$)
  41. 450 [161]#1,A$:A[178][195](A$):[139]A[178]1[167]A[178][198](A$)
  42. 460 C[178]C2:C1[178][171]1:L[178]A[172]256[170]L:L$[178][196](L):[139][195](L$)[179]6[167]L$[178][200](S$,6[171][195](L$))[170]L$
  43. 470 [143] GET BASIC STUFF
  44. 480 [161]#1,A$:A[178][195](A$):[139]A[178]1[167]A[178][198](A$)
  45. 490 C9[178]C(A):[139]C9[177]C1[137]570
  46. 500 [139]C2[178]6[175][195](M$)[179]5[167]M$[178]" "[170]M$:[137]500
  47. 510 K[178]0:[139]B[178]0[137]550
  48. 520 [129]J[178]1[164]B:[139]A$(J)[178]M$[137]560
  49. 530 [139]A$(J)[179]M$[167][130]J:K[178]B:[137]550
  50. 540 [129]K[178]B[164]J[169][171]1:A$(K[170]1)[178]A$(K):[130]K
  51. 550 B[178]B[170]1:A$(K[170]1)[178]M$
  52. 560 C[178]C2:C1[178][171]1:M$[178]""
  53. 570 [139]C2[178]5[137]610
  54. 580 [139]A[178]137[176]A[178]138[176]A[178]141[176]A[178]167[167]C[178]6:[137]660
  55. 590 [139]A[178]44[176]A[178]32[137]660
  56. 600 [139]C9[179][177]6[167]C[178]9:[137]660
  57. 610 [139]C9[178]C[167]C[178][171]1:C1[178]4
  58. 620 [139]C[177]6[137]660
  59. 630 [139]C[179]0[175]C9[177]C1[175]C9[177]6[167]C1[178]C9:[137]650
  60. 640 [139]C2[178]5[167][139][195](M$)[177]2[176]C[177]0[137]660
  61. 650 M$[178]M$[170]A$
  62. 660 [145]C9[170]1[137]360,670,670,670:[137]480
  63. 670 B$[178]B$(C9):C$[178]""
  64. 680 [161]#1,A$:[139]A$[178]""[137]360
  65. 690 [139]A$[178]B$[137]480
  66. 700 [139]A$[179][177]Q$[137]680
  67. 710 A$[178]B$:B$[178]C$:C$[178]A$:[137]680
  68. 720 [143] CLOSE1:INPUT"PRINTER";Z$
  69. 730 [160]1:Z$[178]"Y"
  70. 740 C[178]3:Z[178]6:[139][198](Z$)[178]89[167]C[178]4:Z[178]12
  71. 750 [159]2,C:[152]2:[152]2,"CROSS REFERENCE - PROGRAM ";P$
  72. 760 X$[178]"":[129]J[178]1[164]X:A$[178]X$(J)
  73. 770 [139]C2[178]6[167]K[178]6:[137]790
  74. 780 [129]K[178]1[164][195](A$):[139][202](A$,K,1)[179][177]" "[167][130]K:[144]
  75. 790 B$[178][200](A$,K[171]1):C$[178][202](A$,K[170]1):[139]X$[178]B$[137]810
  76. 800 [152]2:Y[178]0:X$[178]B$:[152]2,X$;[200](S$,5[171][195](X$));
  77. 810 Y[178]Y[170]1:[139]Y[179]Z[137]830
  78. 820 Y[178]1:[152]2:[152]2,S$;
  79. 830 [152]2,[200](S$,6[171][195](C$));C$;
  80. 840 [130]J:[152]2
  81. 850 [139]E[178]1[167] [129]Z[178]1[164]10:[152]2:[130]:[160]2:[128]
  82. 860 E[178]1:X[178]0
  83. 870 [129]Z[178]1[164]10:[152]2:[130]
  84. 880 [160]2
  85. 890 [137]280
  86.